home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / vm etiketten (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  68 lines
  1. 100 POKE53281,6:POKE53280,6:POKE53272,21:POKE657,128:POKE650,128
  2. 110 PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  3. 120 [153]"PEEK                                    PEEK
  4. 130 PRINT"[194][157][194][145] MIT  DIESEM  PROGRAMM  KOENNEN SIE [194][157][194]
  5. 140 [153]"PEEKCMDPEEKON ETIKETTEN FUER IHRE VIDEOKASSETTEN PEEKCMDPEEK
  6. 150 PRINT"[194][157][194][145] AUSDRUCKEN, DIE SIE IN ZWEI FORMEN [194][157][194]
  7. 160 [153]"PEEKCMDPEEKON ERSTELLEN KOENNEN.      SYS> TASTE <  PEEKCMDPEEK
  8. 170 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  9. 180 [151]198,0:[146]198,1:[151]198,0
  10. 190 [153]"LOADSOLL DAS ETIKETT IM LAENGST ODER BREIT-
  11. 200 PRINT"FORMAT ERSTELLT WERDEN ( VIDEOHUELLE /
  12. 210 [153]"VIDEOKASSETTE ) ?
  13. 220 PRINT"[158] 1. LAENGST
  14. 230 [153]" 2. BREIT
  15. 240 U=0:PRINT"BITTE WAEHLEN !
  16. 250 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]250
  17. 260 [139]A$[178]"2"[167]U[178]1:[137]600
  18. 270 [153]"LOAD(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
  19. 280 PRINT"[194]                                     [194]
  20. 290 [153]"PEEK                                     PEEK
  21. 300 PRINT"[194]                                     [194]
  22. 310 [153]"PEEK                                     PEEK
  23. 320 PRINT"[194]                                     [194]
  24. 330 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
  25. 340 PRINT"[158]BITTE GEBEN SIE NUN EIN, WAS AUF DEM
  26. 350 [153]"ETIKETT STEHEN SOLL.";
  27. 360 [129]I[178]1[164]5:[153]:MX[178]35:[141]370:A$(I)[178]B$:[130]:[137]500
  28. 370 B$[178]""
  29. 380 [139]U[178]0[167][153]".....................................":[153]"ON";
  30. 385 [139]U[178]1[167][153]"......................":[153]"ON";
  31. 390 [161]A$:[139]A$[178]""[176]A$[178]"ON"[176]A$[178]"CMD"[167]390
  32. 400 [139][198](A$)[177]192[175][198](A$)[179]234[167]460
  33. 410 [139]A$[178][199](13)[167]490
  34. 420 [139]([198](A$)[179]32[176][198](A$)[177]127)[175]A$[179][177][199](20)[167]390
  35. 430 [139]A$[178]","[176]A$[178]":"[176]A$[178][199](34)[167]390
  36. 440 [139]A$[178][199](20)[175][195](B$)[178]0[167]390
  37. 450 [139]A$[178][199](20)[167]B$[178][200](B$,[195](B$)[171]1):[153]".CMDCMD-CMD";:[137]480
  38. 460 [139][195](B$)[177]MX[167]390
  39. 470 [153]A$;"-CMD";:B$[178]B$[170]A$
  40. 480 [137]390
  41. 490 [129]R[178][195](B$)[164]MX[170]1[171]V1:[153]" ";:[130]:[142]
  42. 500 [153]:[153]"SOLL DAS ETIKETT AUSGEDRUCKT WERDEN ?"
  43. 510 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]510
  44. 520 [139]A$[178]"N"[167][138]
  45. 530 [159]1,4
  46. 540 [129]R[178]1[164]5:[152]1,A$(R):[130]
  47. 550 [160]1
  48. 560 [153]"NOCH EINMAL AUSDRUCKEN ?"
  49. 570 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]570
  50. 575 [139]A$[178]"J"[167]530
  51. 580 [138]
  52. 600 [153]"LOAD(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
  53. 610 FORR=1TO10:PRINT"[194]                       [194]":NEXT
  54. 620 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  55. 630 [153]"SYSBITTE GEBEN SIE NUN EIN, WAS
  56. 640 PRINT"ETIKETT STEHEN SOLL.";
  57. 645 FORI=1TO10:PRINT:MX=21:GOSUB370:A$(I)=B$:NEXT:GOTO700
  58. 700 PRINT:PRINT"SOLL DAS ETIKETT AUSGEDRUCKT WERDEN ?"
  59. 710 GETA$:IFA$<>"J"ANDA$<>"N"THEN710
  60. 720 IFA$="N"THENRUN
  61. 730 OPEN1,4
  62. 740 FORR=1TO10:PRINT#1,A$(R):NEXT
  63. 750 CLOSE1
  64. 760 PRINT"NOCH EINMAL AUSDRUCKEN ?"
  65. 770 GETA$:IFA$<>"J"ANDA$<>"N"THEN770
  66. 775 IFA$="J"THEN730
  67. 780 RUN
  68.